Dim sRoleName

sRoleName = "TestSetRole(Add)"
'======================================================
  Dim sRoles
  Set OBJ = CreateObject("ActivCard.Authority")

  msgbox OBJ.DeleteRole( sRoleName )

  OBJ.GetRoles( sRoles )
  msgbox sRoles

  Set OBJ = Nothing